home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8311.arc / INBASIC4.BAS < prev    next >
BASIC Source File  |  1984-01-25  |  308b  |  11 lines
  1. 10 L.=1000 ' change as needed
  2. 20 DEF FNT(X$)=3600*VAL(LEFT$(X$,2))+60*VAL(MID$(X$,4))+VAL(RIGHT$(X$,2))
  3. 30 T.=FNT(TIME$)
  4. 40 FOR I.=1 TO L.
  5. 50 ' fill with statement set 1
  6. 60 NEXT : PRINT FNT(TIME$)-T.
  7. 70 T.=FNT(TIME$)
  8. 80 FOR I.=1 TO L.
  9. 90 ' fill with statement set 2
  10. 100 NEXT : PRINT FNT(TIME$)-T.
  11.